home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_B.d64 / merry christmas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  64 lines
  1. 1 poke53280,0:poke53281,15:poke646,6 :print"[147]":poke53272,20
  2. 2 print" [213][166][168][201]        [213][168][168][201]           [213][205]"
  3. 3 print"[213][166][166][201][201][168][201]   [213][205]  [202][166][166][203]         [213]'[205]/[205]"
  4. 4 print" [202][166][203]   [206][205][201][213][206][201],  [202][166][168][168][203][203]    [206][213][205]>[205] [201]"
  5. 5 print"    '[206]'/'[205]/[201][220][201][206][205]    [206][205][187]  '' [220][220])[216][216][205]"
  6. 6 print"   '[216][216][202][168][168][206][216][206][205][216][216][205][201]  [206][188][190][205]  ' [172]   [220][220]>[205][216][216]"
  7. 7 print"  [213]<[203][168][205][220][168][206][206] [201][201][205][201][205]  [207][183][183][208]  [206][163][163][163][205] '[168][168][220][220][206][205]"
  8. 9 print"[213][178][178][178]/[223][216][216][205]<[183][184][197][196][195][198][175][164][164][199][176][174][167] [216][216][190][190][190][190][165][216][216][216][216][168][168][216][216]"
  9. 10 print"[213][178][178][178][178][216][216][216][216][216][183][197][197][197][196][195][195][198][168][165][173][189][200][197][196][195] [206][205] [198][210][164][168],,[216][168]"
  10. 11 print"[166][216][216][216][183][197][196][196][196][196][195][198][198][220][220][168][168][168][183][183][183][183][183][183][168]  [204][186] [216][216][196][192][192][195][198][198] "
  11. 12 print"[166][166][216][216][216][216][220][220][168][183][166][166][166][166][166][166][166][206][205][175][175][216][168][216][216][216]([213][201]) [216][216][216][216][168][168][168][168]"
  12. 13 print"[166][175][210][210][198][198][195][195][196][197][197][206][205] [168][216][200][172][187][187][172][205] [216][216] [[202][203]][197][197][197][197][205][213][216][168][168]"
  13. 14 print"[163][183][184][184][196][166][166][206][163][163][163][165][187][180][220][168][168][188][190]  [167][168][168][168][216][199][213][201][200] [215][215][215] [199][220],,"
  14. 15 print"[220][216][195][195],,[168][165][190][190][190][165][161][165][216][216][216] [206][205][187][216][216][216] [220][199][173][189][200] uuu [199][216][216][168]"
  15. 16 print"[198][198][220][220]''[168][168][216][216][216][168][168][220][220][216][216] [207][216][207][208][216][216][216][216][199][182][161][200]=====[199][168][168][220]"
  16. 17 print"[220][164][164][175][175][185][185][162][162][195][196][197][216][220][168][220][168][168][216][216][216][216][216][216][216][168][184][184][184][184][184][184][184][184][184][184][168][168][220]"
  17. 18 print"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  18. 19 print:print"[156]      ein frohes weihnachtsfest !"
  19. 20 print
  20. 34 g=2^(1/12)
  21. 36 si=54272
  22. 38 pokesi+24,15
  23. 40 poke si+5,16+9:poke si+12,16+9:         poke si+19,16+9
  24. 50 poke si+6,4*16+4:poke si+13,4*16+4:     poke si+20,4*16+4
  25. 53 read n
  26. 55 if n= 1then620
  27. 56 k=k+1
  28. 58 h=g^n*278.45827
  29. 60 hi=int(h/256)
  30. 62 lo=int(h)-hi*256
  31. 65 on k goto 68,72,76
  32. 68 l1=lo:h1=hi:goto53
  33. 72 l2=lo:h2=hi:goto53
  34. 76 l3=lo:h3=hi:
  35. 100 poke si,l1:poke si+1,h1
  36. 110 poke si+7,l2:poke si+8,h2
  37. 120 poke si+14,l3:poke si+15,h3
  38. 140 poke si+4,17:poke si+11,17:             poke si+18,17
  39. 165 k=0
  40. 170 read d
  41. 210 for t=1 to d:next
  42. 220 k=0
  43. 230 goto 53
  44. 250 restore
  45. 252 l6=l6+1
  46. 258 if l6 >1 then 300:
  47. 260 goto 53:
  48. 300 poke si+4,0:poke si+11,0:poke si+18,    0
  49. 500 data 53,00,00,10 ,00,53,53,10 ,              53,57,53,10 ,60,53,57,400
  50. 510 data 53,57,60,400,62,58,53,400,              60,53,57,400,0,0,0,10
  51. 520 data 58,55,53,10,57,53,53,10,                55,52,48,10,53,53,53,10
  52. 530 data 57,53,48,10,60,41,53,10,                57,38,53,10, 48,52,55, 900
  53. 540 data 0,0,0,10,55,52,52,10,                   52,55,55,10,53,57,57,10
  54. 550 data 55,58,58,400,48,55,55,400,              53,57,53,400,60,60,57,400
  55. 560 data 0,0,0,10,57,53,53,10,                   52,55,55,10,53,57,57,10
  56. 570 data 55,58,58,400,48,52,55,400,              53,53,57,10,53,55,58,10
  57. 580 data 53,57,60,400,45,60,45,10,               65,62,46,10,48,57,60,10
  58. 590 data 55,48,58,10,48,53,57,400,               52,55,48,400,53,53,53,1000
  59. 600 data 0,0,0,1000,1000,1
  60. 620 print
  61. 635 print"                lukian                  ";
  62. 640 print"                [218][218][218][218][218][218]                  "
  63. 700 poke646,14:poke198,0:wait198,1:print"[147]":end
  64.